home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / GRAPHICS / PHONGSRC.ZIP / DONUT.PAS next >
Encoding:
Pascal/Delphi Source File  |  1996-01-03  |  9.7 KB  |  307 lines
  1. {PASCAL 3D OBJECT INCLUDE FILE}
  2. {generated by PAS3DS, written by Ronald Buster (a.k.a Cono/Fiction)}
  3.  
  4.  
  5. const vert = 95;
  6.       faces = 191;
  7.  
  8.     vertices : array[0..95] of vect3 =
  9.                  (
  10.                   (x:0;y:-198;z:-79),
  11.                   (x:0;y:-142;z:-56),
  12.                   (x:0;y:-119;z:0),
  13.                   (x:0;y:-142;z:56),
  14.                   (x:0;y:-198;z:79),
  15.                   (x:0;y:-254;z:56),
  16.                   (x:0;y:-277;z:0),
  17.                   (x:0;y:-254;z:-56),
  18.                   (x:100;y:-171;z:-79),
  19.                   (x:72;y:-122;z:-56),
  20.                   (x:60;y:-102;z:0),
  21.                   (x:72;y:-122;z:56),
  22.                   (x:100;y:-171;z:79),
  23.                   (x:128;y:-219;z:56),
  24.                   (x:139;y:-240;z:0),
  25.                   (x:128;y:-219;z:-56),
  26.                   (x:171;y:-100;z:-79),
  27.                   (x:122;y:-72;z:-56),
  28.                   (x:102;y:-60;z:0),
  29.                   (x:122;y:-72;z:56),
  30.                   (x:171;y:-100;z:79),
  31.                   (x:219;y:-128;z:56),
  32.                   (x:240;y:-139;z:0),
  33.                   (x:219;y:-128;z:-56),
  34.                   (x:198;y:0;z:-79),
  35.                   (x:142;y:0;z:-56),
  36.                   (x:119;y:0;z:0),
  37.                   (x:142;y:0;z:56),
  38.                   (x:198;y:0;z:79),
  39.                   (x:254;y:0;z:56),
  40.                   (x:277;y:0;z:0),
  41.                   (x:254;y:0;z:-56),
  42.                   (x:171;y:100;z:-79),
  43.                   (x:122;y:72;z:-56),
  44.                   (x:102;y:60;z:0),
  45.                   (x:122;y:72;z:56),
  46.                   (x:171;y:100;z:79),
  47.                   (x:219;y:128;z:56),
  48.                   (x:240;y:139;z:0),
  49.                   (x:219;y:128;z:-56),
  50.                   (x:100;y:171;z:-79),
  51.                   (x:72;y:122;z:-56),
  52.                   (x:60;y:102;z:0),
  53.                   (x:72;y:122;z:56),
  54.                   (x:100;y:171;z:79),
  55.                   (x:128;y:219;z:56),
  56.                   (x:139;y:240;z:0),
  57.                   (x:128;y:219;z:-56),
  58.                   (x:0;y:198;z:-79),
  59.                   (x:0;y:142;z:-56),
  60.                   (x:0;y:119;z:0),
  61.                   (x:0;y:142;z:56),
  62.                   (x:0;y:198;z:79),
  63.                   (x:0;y:254;z:56),
  64.                   (x:0;y:277;z:0),
  65.                   (x:0;y:254;z:-56),
  66.                   (x:-100;y:171;z:-79),
  67.                   (x:-72;y:122;z:-56),
  68.                   (x:-60;y:102;z:0),
  69.                   (x:-72;y:122;z:56),
  70.                   (x:-100;y:171;z:79),
  71.                   (x:-128;y:219;z:56),
  72.                   (x:-139;y:240;z:0),
  73.                   (x:-128;y:219;z:-56),
  74.                   (x:-171;y:100;z:-79),
  75.                   (x:-122;y:72;z:-56),
  76.                   (x:-102;y:60;z:0),
  77.                   (x:-122;y:72;z:56),
  78.                   (x:-171;y:100;z:79),
  79.                   (x:-219;y:128;z:56),
  80.                   (x:-240;y:139;z:0),
  81.                   (x:-219;y:128;z:-56),
  82.                   (x:-198;y:0;z:-79),
  83.                   (x:-142;y:0;z:-56),
  84.                   (x:-119;y:0;z:0),
  85.                   (x:-142;y:0;z:56),
  86.                   (x:-198;y:0;z:79),
  87.                   (x:-254;y:0;z:56),
  88.                   (x:-277;y:0;z:0),
  89.                   (x:-254;y:0;z:-56),
  90.                   (x:-171;y:-100;z:-79),
  91.                   (x:-122;y:-72;z:-56),
  92.                   (x:-102;y:-60;z:0),
  93.                   (x:-122;y:-72;z:56),
  94.                   (x:-171;y:-100;z:79),
  95.                   (x:-219;y:-128;z:56),
  96.                   (x:-240;y:-139;z:0),
  97.                   (x:-219;y:-128;z:-56),
  98.                   (x:-100;y:-171;z:-79),
  99.                   (x:-72;y:-122;z:-56),
  100.                   (x:-60;y:-102;z:0),
  101.                   (x:-72;y:-122;z:56),
  102.                   (x:-100;y:-171;z:79),
  103.                   (x:-128;y:-219;z:56),
  104.                   (x:-139;y:-240;z:0),
  105.                   (x:-128;y:-219;z:-56)
  106.                  );
  107.  
  108.  
  109.     face    : array[0..191,0..2] of integer =
  110.                  (
  111.                   (0,1,9),
  112.                   (0,9,8),
  113.                   (1,2,10),
  114.                   (1,10,9),
  115.                   (2,3,11),
  116.                   (2,11,10),
  117.                   (3,4,12),
  118.                   (3,12,11),
  119.                   (4,5,13),
  120.                   (4,13,12),
  121.                   (5,6,14),
  122.                   (5,14,13),
  123.                   (6,7,15),
  124.                   (6,15,14),
  125.                   (7,0,8),
  126.                   (7,8,15),
  127.                   (8,9,17),
  128.                   (8,17,16),
  129.                   (9,10,18),
  130.                   (9,18,17),
  131.                   (10,11,19),
  132.                   (10,19,18),
  133.                   (11,12,20),
  134.                   (11,20,19),
  135.                   (12,13,21),
  136.                   (12,21,20),
  137.                   (13,14,22),
  138.                   (13,22,21),
  139.                   (14,15,23),
  140.                   (14,23,22),
  141.                   (15,8,16),
  142.                   (15,16,23),
  143.                   (16,17,25),
  144.                   (16,25,24),
  145.                   (17,18,26),
  146.                   (17,26,25),
  147.                   (18,19,27),
  148.                   (18,27,26),
  149.                   (19,20,28),
  150.                   (19,28,27),
  151.                   (20,21,29),
  152.                   (20,29,28),
  153.                   (21,22,30),
  154.                   (21,30,29),
  155.                   (22,23,31),
  156.                   (22,31,30),
  157.                   (23,16,24),
  158.                   (23,24,31),
  159.                   (24,25,33),
  160.                   (24,33,32),
  161.                   (25,26,34),
  162.                   (25,34,33),
  163.                   (26,27,35),
  164.                   (26,35,34),
  165.                   (27,28,36),
  166.                   (27,36,35),
  167.                   (28,29,37),
  168.                   (28,37,36),
  169.                   (29,30,38),
  170.                   (29,38,37),
  171.                   (30,31,39),
  172.                   (30,39,38),
  173.                   (31,24,32),
  174.                   (31,32,39),
  175.                   (32,33,41),
  176.                   (32,41,40),
  177.                   (33,34,42),
  178.                   (33,42,41),
  179.                   (34,35,43),
  180.                   (34,43,42),
  181.                   (35,36,44),
  182.                   (35,44,43),
  183.                   (36,37,45),
  184.                   (36,45,44),
  185.                   (37,38,46),
  186.                   (37,46,45),
  187.                   (38,39,47),
  188.                   (38,47,46),
  189.                   (39,32,40),
  190.                   (39,40,47),
  191.                   (40,41,49),
  192.                   (40,49,48),
  193.                   (41,42,50),
  194.                   (41,50,49),
  195.                   (42,43,51),
  196.                   (42,51,50),
  197.                   (43,44,52),
  198.                   (43,52,51),
  199.                   (44,45,53),
  200.                   (44,53,52),
  201.                   (45,46,54),
  202.                   (45,54,53),
  203.                   (46,47,55),
  204.                   (46,55,54),
  205.                   (47,40,48),
  206.                   (47,48,55),
  207.                   (48,49,57),
  208.                   (48,57,56),
  209.                   (49,50,58),
  210.                   (49,58,57),
  211.                   (50,51,59),
  212.                   (50,59,58),
  213.                   (51,52,60),
  214.                   (51,60,59),
  215.                   (52,53,61),
  216.                   (52,61,60),
  217.                   (53,54,62),
  218.                   (53,62,61),
  219.                   (54,55,63),
  220.                   (54,63,62),
  221.                   (55,48,56),
  222.                   (55,56,63),
  223.                   (56,57,65),
  224.                   (56,65,64),
  225.                   (57,58,66),
  226.                   (57,66,65),
  227.                   (58,59,67),
  228.                   (58,67,66),
  229.                   (59,60,68),
  230.                   (59,68,67),
  231.                   (60,61,69),
  232.                   (60,69,68),
  233.                   (61,62,70),
  234.                   (61,70,69),
  235.                   (62,63,71),
  236.                   (62,71,70),
  237.                   (63,56,64),
  238.                   (63,64,71),
  239.                   (64,65,73),
  240.                   (64,73,72),
  241.                   (65,66,74),
  242.                   (65,74,73),
  243.                   (66,67,75),
  244.                   (66,75,74),
  245.                   (67,68,76),
  246.                   (67,76,75),
  247.                   (68,69,77),
  248.                   (68,77,76),
  249.                   (69,70,78),
  250.                   (69,78,77),
  251.                   (70,71,79),
  252.                   (70,79,78),
  253.                   (71,64,72),
  254.                   (71,72,79),
  255.                   (72,73,81),
  256.                   (72,81,80),
  257.                   (73,74,82),
  258.                   (73,82,81),
  259.                   (74,75,83),
  260.                   (74,83,82),
  261.                   (75,76,84),
  262.                   (75,84,83),
  263.                   (76,77,85),
  264.                   (76,85,84),
  265.                   (77,78,86),
  266.                   (77,86,85),
  267.                   (78,79,87),
  268.                   (78,87,86),
  269.                   (79,72,80),
  270.                   (79,80,87),
  271.                   (80,81,89),
  272.                   (80,89,88),
  273.                   (81,82,90),
  274.                   (81,90,89),
  275.                   (82,83,91),
  276.                   (82,91,90),
  277.                   (83,84,92),
  278.                   (83,92,91),
  279.                   (84,85,93),
  280.                   (84,93,92),
  281.                   (85,86,94),
  282.                   (85,94,93),
  283.                   (86,87,95),
  284.                   (86,95,94),
  285.                   (87,80,88),
  286.                   (87,88,95),
  287.                   (88,89,1),
  288.                   (88,1,0),
  289.                   (89,90,2),
  290.                   (89,2,1),
  291.                   (90,91,3),
  292.                   (90,3,2),
  293.                   (91,92,4),
  294.                   (91,4,3),
  295.                   (92,93,5),
  296.                   (92,5,4),
  297.                   (93,94,6),
  298.                   (93,6,5),
  299.                   (94,95,7),
  300.                   (94,7,6),
  301.                   (95,88,0),
  302.                   (95,0,7)
  303.                  );
  304.  
  305.  
  306. {END-OF-FILE}
  307.